<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--Rendered using the Haskell Html Library v0.2-->
<HTML
><HEAD
><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8"
><TITLE
>Huffman</TITLE
><LINK HREF="haddock.css" REL="stylesheet" TYPE="text/css"
><SCRIPT SRC="haddock-util.js" TYPE="text/javascript"
></SCRIPT
><SCRIPT TYPE="text/javascript"
>window.onload = function () {setSynopsis("mini_Huffman.html")};</SCRIPT
></HEAD
><BODY
><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
><TR
><TD CLASS="topbar"
><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
><TR
><TD
><IMG SRC="haskell_icon.gif" WIDTH="16" HEIGHT="16" ALT=" "
></TD
><TD CLASS="title"
></TD
><TD CLASS="topbut"
><A HREF="index.html"
>Contents</A
></TD
><TD CLASS="topbut"
><A HREF="doc-index.html"
>Index</A
></TD
></TR
></TABLE
></TD
></TR
><TR
><TD CLASS="modulebar"
><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
><TR
><TD
><FONT SIZE="6"
>Huffman</FONT
></TD
></TR
></TABLE
></TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="section1"
>Synopsis</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="body"
><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
><TR
><TD CLASS="decl"
><A HREF="#v%3AobtenerFrecuencia"
>obtenerFrecuencia</A
> :: Ord a =&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; Integer</TD
></TR
><TR
><TD CLASS="s8"
></TD
></TR
><TR
><TD CLASS="decl"
><A HREF="#v%3AcrearRama"
>crearRama</A
> :: Ord a =&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a</TD
></TR
><TR
><TD CLASS="s8"
></TD
></TR
><TR
><TD CLASS="decl"
><A HREF="#v%3AcrearHuffman"
>crearHuffman</A
> :: Ord a =&gt; [(a, Integer)] -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a</TD
></TR
><TR
><TD CLASS="s8"
></TD
></TR
><TR
><TD CLASS="decl"
><A HREF="#v%3AgenerarAsociaciones"
>generarAsociaciones</A
> ::  <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; [(a, [Bool])]</TD
></TR
><TR
><TD CLASS="s8"
></TD
></TR
><TR
><TD CLASS="decl"
><A HREF="#v%3AreconstruirHuffman"
>reconstruirHuffman</A
> :: Ord a =&gt; [(a, [Bool])] -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a</TD
></TR
><TR
><TD CLASS="s8"
></TD
></TR
><TR
><TD CLASS="decl"
><A HREF="#v%3Acodificar"
>codificar</A
> :: Ord a =&gt; [a] -&gt; (<A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a, [Bool])</TD
></TR
><TR
><TD CLASS="s8"
></TD
></TR
><TR
><TD CLASS="decl"
><A HREF="#v%3Adecodificar"
>decodificar</A
> ::  <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; [Bool] -&gt; [a]</TD
></TR
><TR
><TD CLASS="s8"
></TD
></TR
><TR
><TD CLASS="decl"
><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
><TR
><TD CLASS="decl"
><SPAN CLASS="keyword"
>data</SPAN
>  <A HREF="#t%3AHuffman"
>Huffman</A
> a </TD
></TR
><TR
><TD CLASS="body"
><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
><TR
><TD CLASS="decl"
>= <A HREF="#v%3AHoja"
>Hoja</A
> Integer a</TD
></TR
><TR
><TD CLASS="decl"
>| <A HREF="#v%3ARama"
>Rama</A
> Integer (<A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a) (<A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a)</TD
></TR
></TABLE
></TD
></TR
></TABLE
></TD
></TR
></TABLE
></TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="section1"
>Documentation</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><A NAME="v:obtenerFrecuencia"
><A NAME="v%3AobtenerFrecuencia"
></A
></A
><B
>obtenerFrecuencia</B
> :: Ord a =&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; Integer</TD
></TR
><TR
><TD CLASS="doc"
>Obtiene la frecuencia acumulada que se encuentra en la raiz del Arbol de
   Huffman suministrado.
</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><A NAME="v:crearRama"
><A NAME="v%3AcrearRama"
></A
></A
><B
>crearRama</B
> :: Ord a =&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a</TD
></TR
><TR
><TD CLASS="doc"
>A partir de dos Arboles de Huffman, crea un nuevo  arbol que los tiene
   como hijos. La frecuencia acumulada del nuevo  arbol es la suma de la de
   los nuevos hijos.
</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><A NAME="v:crearHuffman"
><A NAME="v%3AcrearHuffman"
></A
></A
><B
>crearHuffman</B
> :: Ord a =&gt; [(a, Integer)] -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a</TD
></TR
><TR
><TD CLASS="doc"
><P
>Dado una lista que contiene un conjunto de simbolos y su cantidad de
   ocurrencias, construye un Arbol de Huffman que la represente.
</P
><P
>En un principio se meten todos los elementos en un heap de fibonacci
   posteriormente se sacan los dos elementos menores, se unen en una rama
   y se insertan de nuevo en el heap. Esto se repite hasta que se obtiene
   el arbol de Huffman completo.
</P
></TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><A NAME="v:generarAsociaciones"
><A NAME="v%3AgenerarAsociaciones"
></A
></A
><B
>generarAsociaciones</B
> ::  <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; [(a, [Bool])]</TD
></TR
><TR
><TD CLASS="doc"
>Dado un Arbol de Huffman, devuelve una lista de tuplas con el conjunto de
   todos los simbolos ocurrentes en el arbol, junto a la codificacion binaria
   de los mismos (La lista de booleanos representa la lista de bits de la
   codificacion, donde False representa el cero y True el uno).
</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><A NAME="v:reconstruirHuffman"
><A NAME="v%3AreconstruirHuffman"
></A
></A
><B
>reconstruirHuffman</B
> :: Ord a =&gt; [(a, [Bool])] -&gt; <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a</TD
></TR
><TR
><TD CLASS="doc"
>Dada una lista de tuplas con un conjunto de simbolos, junto a una codificacion 
   binaria de los mismos construye un Arbol de Huffman tal que dichas asociaciones 
   pudieran haber sido generadas.
</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><A NAME="v:codificar"
><A NAME="v%3Acodificar"
></A
></A
><B
>codificar</B
> :: Ord a =&gt; [a] -&gt; (<A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a, [Bool])</TD
></TR
><TR
><TD CLASS="doc"
>Dado una lista de simbolos, devuelve una tupla. Esta tupla tiene como
   primer elemento el Arbol de Huffman generado a partir de la lista de
   simbolos dada. Como segundo elemento, tiene una lista donde cada uno
   de los simbolos en la entrada, ha sido reemplazado por su representacion
   binaria y concatenados para formar una sola cadena.
</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><A NAME="v:decodificar"
><A NAME="v%3Adecodificar"
></A
></A
><B
>decodificar</B
> ::  <A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a -&gt; [Bool] -&gt; [a]</TD
></TR
><TR
><TD CLASS="doc"
>Dado un Arbol de Huffman y luego una lista que representa a una cadena
   de bits, devuelve una lista de simbolos que corresponde a la decodificacion
   de dicha cadena con la informacion del arbol.
</TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="decl"
><SPAN CLASS="keyword"
>data</SPAN
>  <A NAME="t:Huffman"
><A NAME="t%3AHuffman"
></A
></A
><B
>Huffman</B
> a </TD
></TR
><TR
><TD CLASS="body"
><TABLE CLASS="vanilla" CELLSPACING="0" CELLPADDING="0"
><TR
><TD CLASS="section4"
>Constructors</TD
></TR
><TR
><TD CLASS="body"
><TABLE CLASS="vanilla" CELLSPACING="1" CELLPADDING="0"
><TR
><TD CLASS="arg"
><A NAME="v:Hoja"
><A NAME="v%3AHoja"
></A
></A
><B
>Hoja</B
> Integer a</TD
><TD CLASS="rdoc"
></TD
></TR
><TR
><TD CLASS="arg"
><A NAME="v:Rama"
><A NAME="v%3ARama"
></A
></A
><B
>Rama</B
> Integer (<A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a) (<A HREF="Huffman.html#t%3AHuffman"
>Huffman</A
> a)</TD
><TD CLASS="rdoc"
></TD
></TR
></TABLE
></TD
></TR
></TABLE
></TD
></TR
><TR
><TD CLASS="s15"
></TD
></TR
><TR
><TD CLASS="botbar"
>Produced by <A HREF="http://www.haskell.org/haddock/"
>Haddock</A
> version 2.6.1</TD
></TR
></TABLE
></BODY
></HTML
>
